home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_6467.txt < prev    next >
Text File  |  1988-09-28  |  5KB  |  221 lines
  1. -- card: 6467 from stack: in
  2. -- bmap block id: 6918
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Uploads
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     put empty into reslts
  12.     repeat 3
  13.       put recvUpTo(port,return,2,false,false) into newIn
  14.       put newIn after reslts
  15.     end repeat
  16.   end if
  17. end idle
  18.  
  19. on opencard
  20.   global lastday
  21.   put lastday into field "laston"
  22.   put the abbrev date into field "now"
  23. end opencard
  24.  
  25.  
  26. -- part 1 (button)
  27. -- low flags: 00
  28. -- high flags: 8004
  29. -- rect: left=375 top=305 right=327 bottom=475
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Log off
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   global port
  41.   sendSPort port,false,"g"&return
  42.   answer "What'll it be?" with "Yes, bye" or "NO WAIT!!" or "Survey"
  43.   if it="Yes, bye" then
  44.     sendsPort port,false,"y"&return
  45.     put empty into card field 1
  46.     go card 1
  47.   else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  48.   else sendSPort port,false,"a"&return
  49.  
  50. end mouseUp
  51.  
  52.  
  53.  
  54.  
  55. -- part 2 (button)
  56. -- low flags: 00
  57. -- high flags: 8004
  58. -- rect: left=375 top=281 right=303 bottom=475
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Main Menu
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   global port
  70.   sendSPort port,false,"e"&return
  71.   go card "Main Menu"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 3 (button)
  77. -- low flags: 00
  78. -- high flags: 8004
  79. -- rect: left=375 top=257 right=279 bottom=475
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: File Menu
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   global port
  91.   sendSPort port,false,"b"&return
  92.   go card "File Menu"
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 4 (button)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=54 top=31 right=68 bottom=90
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 21060 / 21060
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: New Button
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   show card field "info"
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 5 (button)
  117. -- low flags: 00
  118. -- high flags: 8004
  119. -- rect: left=182 top=124 right=146 bottom=282
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Text-Only File
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   global port
  131.   answer "WARNING! this operation cannot be cancelled" with "Continue" or "Abort"
  132.   if it is "Continue" then
  133.     sendSPort port,false,"1"&return
  134.     wait 35
  135.     sendSPort port,false,"N"&return
  136.     Ask "enter filename (12 characters only)"
  137.     repeat until length of it<13
  138.       Ask "enter filename (12 characters only)"
  139.     end repeat
  140.     if it is empty then
  141.       sendSPort port,false,return
  142.     else
  143.       sendSPort port,false,it&return
  144.       sendX
  145.     end if
  146.   else
  147.   end if
  148.  
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 6 (button)
  154. -- low flags: 00
  155. -- high flags: 8004
  156. -- rect: left=132 top=154 right=178 bottom=339
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: .sit and Other Mac Documents
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   global port
  168.   answer "WARNING! this operation cannot be cancelled" with "Continue" or "Abort"
  169.   if it is "Continue" then
  170.     sendSPort port,false,"1"&return
  171.     wait 35
  172.     sendSPort port,false,"Y"&return
  173.     Ask "enter filename (12 characters only)"
  174.     repeat until length of it<13
  175.       Ask "enter filename (12 characters only)"
  176.     end repeat
  177.     if it is empty then
  178.       sendSPort port,false,return
  179.     else
  180.       sendSPort port,false,it&return
  181.       sendX
  182.     end if
  183.   else
  184.   end if
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 7 (field)
  190. -- low flags: 81
  191. -- high flags: 0004
  192. -- rect: left=99 top=103 right=172 bottom=402
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 3
  197. -- text size: 9
  198. -- style flags: 0
  199. -- line height: 12
  200. -- part name: info
  201. ----- HyperTalk script -----
  202. on mouseup
  203.   hide card field "info"
  204. end mouseup
  205.  
  206.  
  207. -- part contents for background part 4
  208. ----- text -----
  209. Sun, Sep 25, 1988
  210.  
  211. -- part contents for background part 5
  212. ----- text -----
  213. 10:17 PM
  214.  
  215. -- part contents for card part 7
  216. ----- text -----
  217. Choose the type of file you are going to Upload.  99.9% of the time you will be uploading a .sit or Other Macintosh document.  Use the Text-Only option when you are uploading just that: text only files.  Text-only files that have been Stuffited should be uploaded as .sit files.  Thank you.
  218.  
  219. -- part contents for background part 3
  220. ----- text -----
  221. Sat, Sep 24, 1988, 12:06 AM